home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-06-18 | 606 b | 30 lines | [TEXT/MPS ] |
- o int or long
- ************************************************************************/
- #ifdef Lattice
- long atoi(s)
- char *s;
- {
- long n;
- int sign = 0;
-
- while (*s==' ' || *s=='\t')
- ++s; /* move over blanks & tabs */
- if (*s=='-')
- sign=1;
- else
- if (*s!='+')
- --s;
- ++s; /* skip sign */
- for (n=0; *s >= '0' && *s<='9'; )
- n = n * 10 + (*s++ - '0');
- if (sign)
- n = -n;
- return n;
- }
- #endif
-
- /************************************************************************
- * Function: alloc
- ************************************************************************/
- char* alloc(i)
- int